home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
User's Choice Windows CD
/
User's Choice Windows CD (CMS Software)(1993).iso
/
utility2
/
wclib.zip
/
WCLIBC.ZIP
/
MCITEST.WCM
< prev
next >
Wrap
Text File
|
1993-03-06
|
647b
|
22 lines
//==============================================================
// MCITest - A WinCmd program that sends command strings using
// the SendMCIString function
// Copyright (c) 1993 Douglas Boling
//==============================================================
string = AskBox ("Enter MCI String", " ")
if (a+string == a)
string = EXIT
while (string <> exit) do
answer = SendMCIString (string)
if (substr (answer,0 ,5) == "ERROR")
say answer getmcierrorstring (substr (answer, 6, 10))
else
say answer
string = AskBox ("Enter MCI String", string)
if (a+string == a)
string = EXIT
end
exit